function end function in QBASIC